*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
************************ DRÄGER AND NGHIEM (2025) ***********************
*INFLATION LITERACY, INFLAION EXPECTATIONS, AND TRUST IN THE CENTRAL BANK: 
*                           A SURVEY EXPERIMENT 
****************** THE REVIEW OF ECONOMICS AND STATISTICS ***************
*********************** (REPLICATION FILES) *****************************
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

***********************   JANUARY 2025  *******************************

***** Note: Read "README.txt for details about the code and data ********

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
*** Set STATA
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

*** Clear all ***
clear all
version 18

******************

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
*** Generate tables and figures in the Online Appendix

*A.3 Persistence of Treatment Effects in Wave 2
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

	use "Inflation_literacy_Jan2025_final.dta" , clear
	
*A.3 Persistence of Treatment Effects in Wave 2
	
*Table A15: Interaction Effects of the Literacy Treatment and Quantitative Information Treatments: Wave 2
	
	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = l.`y'_point
	
	qui: rreg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' if wave== 2 & sample_robust_w2_298 == 1
	qui: estpost  
	*qui: estpost margins, dydx(*)
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = l.`y'_point
	
	qui: rreg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' if wave== 2 & sample_robust_w2_298 == 1
	qui: estpost  
	*qui: estpost margins, dydx(*)
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = l.inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if wave == 2 & sample_robust_w2_298 == 1, robust
	qui: estpost  
	*qui: estpost margins, dydx(*)
	eststo
	drop inf_prior
	}

	
	esttab using "TableA15.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of the Literacy Treatment and Quantitative Information Treatments: Wave 2) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
********************************************************************************
********************************************************************************